proc clone { count value } {
	if {$count<=0} {
		tuple
	} else {
		switch $count {
			1 { set value }
			2 { tuple $value $value }
			3 { tuple $value $value $value }
			4 { tuple $value $value $value $value }
			default {
				tailcall tuple $value [ pure clone [ expr {$count - 2} ] $value ] $value
			}
		}
	}
}
